home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / Clinic / WebTest.dpr < prev    next >
Encoding:
Text File  |  1999-10-21  |  469 b   |  29 lines
  1. program WebTest;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$ifdef Ver100} { Delphi 3.0x }
  6.   {$define DelphiLessThan4}
  7. {$endif}
  8. {$ifdef Ver110} { C++ Builder 3.0x }
  9.   {$define DelphiLessThan4}
  10. {$endif}
  11.  
  12.  
  13. uses
  14. {$ifdef DelphiLessThan4}
  15.   HTTPApp,
  16. {$else}
  17.   WebBroker,
  18. {$endif}
  19.   CGIApp,
  20.   WebTestWM in 'WebTestWM.pas' {WebModule1: TWebModule};
  21.  
  22. {$R *.RES}
  23.  
  24. begin
  25.   Application.Initialize;
  26.   Application.CreateForm(TWebModule1, WebModule1);
  27.   Application.Run;
  28. end.
  29.